[MS Office]一个关于Excel的宏程序

Demo

Edited by Ben. Turn to ContentPage

Get the knowledge flowing and circulating! :)

目录

MS Office中宏程序小Demo

Step1: MS Excel调出宏界面的方法

• 同MS Word调出方法

Step2: MS Excel调出VB代码键入界面

Step3: 键入VB代码

代码解读

这里的代码功能是：根据一个用户sheet中指定的姓名，来新建多个sheet。

准备工作

• 先新建一个sheet，命名为“用户”，在从A2单元格开始，向下键入你想新建的sheet名称。

  • 我这里键入的是：张三、李四、王五、赵六，这4个名称。

x
1
Sub cresheet() '批量新建多个sheet表，新建一个cresheet的宏'
2

3
Dim a As Integer '定义a变量'
4

5
a = 2 '初始化a的值，从A2开始'
6

7
Set st = Worksheets("用户") '表初始值，定位源数据表，可以更改'
8

9
Do While st.Cells(a, "A") <> "" '设定循环条件，从源表的A2开始，如果数据不为空，执行该循环'
10

11
    On Error Resume Next '若表名不存在，忽略代码引起的运行错误'
12
    
13
    If Worksheets(st.Cells(a, "A").Value) Is Nothing Then '判断是否存在对应的工作表'
14
    
15
        Worksheets.Add
16
        
17
        after = Worksheets(Worksheets.Count) '永远将新表加入最后一个表之后'
18
        
19
        ActiveSheet.Name = st.Cells(a, "A").Value '新的工作表为当前活动的工作，将工作表的名称更改为源表中对应单元格的名字'
20
        
21
    End If
22
    
23
    a = a + 1 '行号加1，继续新增下一个'
24

25
Loop
26

27
End Sub
28

Step4: 执行完的结果

总结

对比Step3未执行之前的图片左下角。

看看，是不是一次性就能新建很多sheet了呢？而且这些sheet的名字都是你自己命名的哦！

是不是潜力很大！:P